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We introduce here some examples of VHDL based digital circuits design for 
Lab work. 

4-Bit Adder/Subtractor 



B, A, B; A : B, A, B„ A„ 




--XOR gate VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 

Entity xor_gate is 
Port( A, B: in std_logic; 

F: out std_logic); 
End xor_gate; 

Architecture xorjbehav of xor_gate is 
Begin 

F<= AxorB; 
End xor_behav; 

-Full adder VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 
Entity FA is 

Port( X, Y,Cin: in stdjogic; 

Sum,Cout: out stdjogic); 

End FA; 

Architecture FAJbehav of FA is 
Begin 

Sum <= (X xor Y) xor Cin; 
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Cout <= (X and Y) or( (X xor Y) and Cin); 
End FA_behav; 

--Top level 4-bit AdderSubtractor 

Library ieee; 

Use ieee.std_logic_1164.all; 

Entity Addsub is 
Port( M: in std_logic; 

A, B: in std_logic_vector(3 downto 0); 

Sum: out std_logic_vector(3 downto 0); 

Carry, V: out std_logic); 
End Addsub; 

Architecture Addsub_Sruct of Addsub is 
Component xor_gate is 
Port( A, B: in std_logic; 

F: out std_logic); 
End component; 
Component FA is 
Port( X, Y,Cin: in stdjogic; 

Sum,Cout: out stdjogic); 
End component; 

Signal C :std_logic_vector(4 downto 1); 
Signal temp: std_logic_vector(3 downto 0); 

Begin 

XG1: xor_gate port map (M, B(0),temp(0)); 
XG2: xor_gate port map (M, B(l),temp(l)); 
XG3:xor_gate port map (M, B(2),temp(2)); 
XG4: xor_gate port map (M, B(3),temp(3)); 

FAO: FA port map (A(0), temp(0), M, Sum(0),C(l)); 
FA1: FA port map (A(l), temp(l), C(l), Sum(l),C(2)); 
FA2: FA port map (A(2), temp(2), C(2), Sum(2),C(3)); 
FA3: FA port map (A(3), temp(3), C(3), Sum(3),C(4)); 

V <= C(3) xor C(4); 
Carry <= C4; 

End Addsub_Struct; 
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4-to 1 Mux using If statement 



LIBRARY ieee; 

USE ieee. std_logic_l 1 64 . ALL; 



ENTITY mux4 1 IS 
PORT (sO 



in3 

output 



IN STDJLOGIC; 

IN STD_LOGIC; 

IN STD_LOGIC; 

IN STDJLOGIC; 

IN STD_LOGIC; 

IN STDJLOGIC; 

OUT STD LOGIC 



) ; 



END mux4_l; 

ARCHITECTURE ifexample OF mux4_l IS 
BEGIN 

mux : PROCESS (sO, si, inO, inl, in2, in3) 
BEGIN 

IF (s0='0' AND sl='0') THEN 

output <= inO; 
ELSIF (sO='l' AND sl='0') THEN 

output <= inl; 
ELSIF (s0='0' AND sl='l') THEN 

output <= in2; 
ELSIF (sO='l' AND sl='l') THEN 

output <= in3; 
ELSE — (sO or si are not 0 or 1) 

output <= ' X ' ; 
END IF; 



END PROCESS mux; 
END if_example; 



4-tol Mux using case statement 

LIBRARY ieee; 

USE ieee. std_logic_l 1 64 . ALL; 



ENTITY mux4 1 IS 
PORT (sO 

si 

inO 

inl 

in2 

in3 

output 

) ; 

END mux4 1; 



Package declaration . 



IN STDJLOGIC; 

IN STDJLOGIC; 

IN STD_LOGIC; 

IN STD_LOGIC; 

IN STDJLOGIC; 

IN STD_LOGIC; 

OUT STDJLOGIC 
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ARCHITECTURE caseexample OF mux4_l IS 
BEGIN 

mux : PROCESS (sO, si, inO, inl, in2, in3) 



VARIABLE sel 
BEGIN 

sel := si & sO; 

CASE sel IS 

WHEN "00" = 

WHEN "01" = 

WHEN "10" = 

WHEN "11" = 

WHEN OTHERS = 

END CASE; 

END PROCESS mux; 
END case_example; 



STD_LOGIC_VECTOR(l DOWNTO 0); 
concatenate si and sO 



output <= inO; 
output <= inl; 
output <= in2; 
output <= in3; 
output <= ' X ' ; 



2-to 1 Mux using (with -select) statement 

library ieee; 

use ieee . std_logic_ll 64 . all; 

entity mux_using_with is 
port ( 



din_0 
din 1 



in std_logic; 
in std_logic; 
in std_logic; 
out std_logic 



Mux first input 
Mux Second input 
■ Select input 
Mux output 



end entity; 

architecture behavior of mux_using_with is 

begin 

with (sel) select 

mux out <= din 0 when ' 0 ' , 

din 1 when others; 



end architecture; 



16-to 4 Encoder - Using if-else Statement 



-- Design Name : encoder using if 

-- File Name : encoder_using_if . vhd 



library ieee; 

use ieee . std_logic_ll 64 . all; 
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entity encoder_usin 
port ( 

enable 

encoder_in 

binary_out 

Output 



in std_logic; 

in std_logic_vector (15 downto 0); 
out std_logic_vector (3 downto 0) 



Enable for the encoder 
16-bit Input 
4 bit binary 



) ; 



architecture behavior of encoder 



begin 

process (enable, encoder_in 
binary_out <= "0000"; 
if (enable = '1') then 



if 


(encoder in = 


X"0002" 


then 


binary 


_out 


<= 


"0001"; 


end 


if ; 


if 


(encoder in = 


X"0004" 


then 


binary 


_out 




"0010"; 


end 


if ; 


if 


(encoder in = 


X"0008" 


then 


binary 


_out 


<= 


"0011"; 


end 


if ; 


if 


(encoder in = 


X"0010" 


then 


binary 


_out 




"0100"; 


end 


if ; 


if 


(encoder in = 


X"0020" 


then 


binary 


"out 


<= 


"0101"; 


end 


if ; 


if 


(encoder in = 


X"0040" 


then 


binary 


"out 


<= 


"0110"; 


end 


if ; 


if 


(encoder in = 


X"0080" 


then 


binary 


out 




"0111"; 


end 


if ; 


if 


(encoder in = 


X"0100" 


then 


binary 


"out 


<= 


"10 0 0"; 


end 


if ; 


if 


(encoder in = 


X"0200" 


then 


binary 


_out 




"1001"; 


end 


if ; 


if 


(encoder in = 


X"0400" 


then 


binary" 


_out 


<= 


"1010"; 


end 


if ; 


if 


(encoder in = 


X"0800" 


then 


binary_ 


_out 


<= 


"1011"; 


end 


if ; 


if 


(encoder in = 


X"1000" 


then 


binary 


_out 




"1100"; 


end 


if ; 


if 


(encoder in = 


X"2000" 


then 


binary 


_out 


<= 


"1101"; 


end 


if; 


if 


(encoder in = 


X"4000" 


then 


binary 


out 




"1110"; 


end 


if ; 


if 


(encoder in = 


X"8000" 


then 


binary 


_out 


<= 


"1111"; 


end 


if; 



end if; 
end process; 
end architecture; 



16 to 4 Encoder - Using case Statement 



-- Design Name : encoder_using_case 

-- File Name : encoder using case.vhd 

-- Function : Encoder using Case 



library ieee; 

use ieee . std_logic_ll 64 . all; 

entity encoder_using_case is 
port ( 

enable : in std_logic; -- Enable for the encoder 

encoder_in : in std_logic_vector (15 downto 0); -- 16-bit Input 
binary_out :out std_logic_vector (3 downto 0) -- 4 bit binary 

Output 

) ; 

end entity; 
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architecture behavior of encoder_using_case is 
begin 

process (enable, encoder_in) begin 
if (enable = '1') then 



case (enc 


-Oder in 


) i 










when 


X" 0 0 02 " 




binary 


out 


<= 


"0001", 


when 


X"0004" 


=> 


binary 






"0010", 


when 


X"0008" 


=> 


binary" 


out 


<= 


"0011", 


when 


X"0010" 


=> 


binary 


out 


<= 


"0100", 




X"0020" 




binary" 


[out 




"0101", 




X"0040" 




binary_ 


_out 


<= 


"0110", 


when 


X"0080" 




binary 


out 




"0111", 


when 


X"0100" 


=> 


binary 


_out 


<= 


"10 0 0", 


when 


X"0200" 


=> 


binary 


out 


<= 


"10 01", 




X"0400" 


=> 


binary 


_out 


<= 


"1010", 




X"0800" 


=> 


binary 


_out 


<= 


"1011", 


when 


X"1000" 




binary 


out 




"110 0", 




X"2000" 




binary] 


[out 


<= 


"1101", 


when 


X"4000" 




binary 


out 




"1110", 




X"8000" 




binary" 


[out 


<= 


"1111", 




others 


=> 


binary 


_out 


<= 


"0000", 



end case; 
end if; 
end process; 
end architecture; 



Priority-Encoder - Using if -else Statement 



Design Name : pri encoder using if 
-- File Name : pri_encoder_using_if . vhd 
-- Function : Pri Encoder using If 



library ieee; 

use ieee . std_logic_ll 64 . all; 

entity pri_encoder_using_if is 
port ( 

enable : in std_logic; -- Enable for the encoder 

encoder_in : in std_logic_vector (15 downto 0); -- 16-bit Input 
binary_out rout std_logic_vector (3 downto 0) -- 4 bit binary 

Output 

) ; 

end entity; 

architecture behavior of pri_encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "0000"; 
if (enable = '1') then 
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if (encoder in 


= 


XXXXXXXXXXXXXX10") then 


binary out 


<= 


"0001"; 




elsif (encoder 




= "XXXXXXXXXXXXX100" ) 


then 


binary out 


"<= 


"0010"; 




elsif (encoder 


in 


= "XXXXXXXXXXXX1000" ) 


then 


binary out 


" <= 


"0011"; 




elsif (encoder 


in 


= "XXXXXXXXXXX10000" ) 


then 


binary out 


" <= 


"0100"; 




elsif (encoder 


in 


= "XXXXXXXXXX100000") 


then 


binary out 


" <= 


"0101"; 




elsif (encoder 


in 


= "XXXXXXXXX1000000" ) 


then 


binary out 


" <= 


"0110"; 




elsif (encoder 


in 


= "XXXXXXXX10000000" ) 


then 


binary out 


" <= 


"0111"; 




elsif (encoder 


in 


= "XXXXXXX100000000" ) 


then 


binary out 


<= 


"10 0 0"; 




elsif (encoder 




= "XXXXXX1000000000" ) 


then 


binary out 


<= 


"1001"; 




elsif (encoder 




= "XXXXX10000000000" ) 


then 


binary out 


<= 


"1010"; 




elsif (encoder 




= "XXXX100000000000") 


then 


binary_out~ 


"<= 


"1011"; 




elsif (encoder 


in 


= "XXX1000000000000") 


then 


binary out 


"<= 


"1100"; 




elsif (encoder 




= "XX10000000000000") 


then 


binary out 




"1101"; 




elsif (encoder 




= "X100000000000000") 


then 


binary out 


<= 


"1110"; 




else 








binary out 


<= 


"1111"; 





end if; 
end if; 
end process; 
end architecture; 



Priority Encoder - Using when Statement 



-- Design Name : pri encoder using_when 

File Name : pri_encoder_using_when . vhd 
-- Function : Pri Encoder using when-else 



library ieee; 

use ieee . std_logic_l 1 64 . all; 

entity pri_encoder_using_when is 
port ( 

enable : in std_logic; -- Enable for the encoder 

encoder_in tin std_logic_vector (15 downto 0); -- 16-bit Input 
binary_out rout std_logic_vector (3 downto 0) 4 bit binary 

Output 
) ; 

end entity; 

architecture behavior of pri_encoder_using_when is 
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binary out <= "0000" 


when 


(enable = 


'0') 


else 




"0000" 


when 


(encoder 






"XXXXXXXXXXXXXXX1" ) 


else 


"0001" 


when 


(encoder 


"in 




"XXXXXXXXXXXXXX10" ) 


else 


"0010" 


when 


(encoder 


"in 


= 


" XXXXXXXXXXXXX1 0 0 " ) 


else 


"0011" 


when 




in 




" XXXXXXXXXXXX1 0 0 0") 


else 


"0100" 


when 


(encoder" 


"in 




"XXXXXXXXXXX10000" ) 


else 


"0101" 


when 


(encoder 


" in 




" XXXXXXXXXX1 0 0 0 0 0") 


else 


"0110" 


when 




"in 




"XXXXXXXXX1000000" ) 


else 


"0111" 


when 


(encoder 


in 




"XXXXXXXX10000000") 


else 


"10 0 0" 




(encoder 






" XXXXXXX1 0 0 0 0 0 0 0 0 " ) 


else 


"1001" 




(encoder 






"XXXXXX1000000000") 


else 


"1010" 


when 


(encoder 


in 




"XXXXX10000000000") 


else 


"1011" 


when 


(encoder 






"XXXX100000000000") 


else 


"1100" 


when 


(encoder 


in 




"XXX1000000000000") 


else 


"1101" 


when 


(encoder 






"XX10000000000000") 


else 


"1110" 


when 


(encoder 






"X100000000000000") 


else 


"1111" 















4 to 16 Decoder - Using case Statement 

library ieee; 

use ieee . std_logic_ll 64 . all; 

entity decoder_using_case is 
port ( 

enable : in std_logic; -- Enable for the decoder 

binary_in : in std_logic_vector (3 downto 0); 4-bit Input 

decoder_out rout std_logic_vector (15 downto 0) -- 16-bit Output 

) ; 

end entity; 

architecture behavior of decoder_using_case is 
begin 

process (enable, binary_in) begin 
decoder_out <= X"0000"; 
if (enable = '!') then 



case (binary 


in) is 










X"0' 


=> 


decoder_ 


_out 


<= 


X"0001" 


when 


X"l' 




decoder 


out 


<= 


X"0002" 


when 


X"2' 




decoder 


out 


<= 


X"0004" 




X"3' 


=> 


decoder 


_out 


<= 


X"0008" 


when 


X"4' 




decoder 


out 


<= 


X"0010" 




X"5' 


=> 


decoder 


_out 


<= 


X"0020" 


when 


X"6' 




decoder 


out 




X"0040" 


when 


X"7' 




decoder 


out 




X"0080" 




X"8' 


=> 


decoder 


[out 


<= 


X"0100" 


when 


X"9' 




decoder 


out 




X"0200" 




X"A' 


=> 


decoder 


_out 


<= 


X"0400" 


when 


X"B' 




decoder 


out 


<= 


X"0800" 


when 


X"C 




decoder 


out 


<= 


X"1000" 
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when X"D" => decoder_out <= X"2000' 
when X"E" => decoder_out <= X"4000' 
when X"F" => decoder_out <= X"8000' 
when others => decoder out <= X"0000' 



end ca 
end if; 
end process; 
end architecture; 



4 to 16 Decoder using (with-select) statement 



-- Design Name : decoder_using_with 

File Name : decoder_using_with . vhd 
-- Function : decoder using with-select 



library ieee; 

use ieee . std_logic_ll 64 . all; 



entity decoder_using_select is 
port ( 

enable : in std_logic; -- Enable for the decoder 

binary_in : in std_logic_vector (3 downto 0); 4-bit input 

decoder_out rout std_logic_vector (15 downto 0) -- 16-bit output 

) ; 

end entity; 



architecture behavior of decoder_using_select is 



with (bi 
decoder 



."0004 

:"0008 

."0010' 

:"0020' 
:"0040' 
:"0080' 
:"Oioo 
:"0200' 
:"0400' 
:"0800' 

."1000 

:"2000 
:"4000' 
:"8000' 
:"0000' 



when X" 
when X" 
when X": 
when X" 
when X"' 
when X" 
when X" 
when X" 
when X"8" 
when X" 
when X"A", 
when X"] 
when X"C" 
when X": 
when X": 
when X": 
when others; 



end architecture; 
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A Flip-flop is the basic element which is used to store information of one bit. Flip- 
flops have their content change either at the rising or falling edge of the enable 
signal(usually the controlling clock signal). 

There are basically four main types of flip-flops: 

1. SR Flip-flop 

2. D Flip-flop 

3. JK Flip-flop 

4. T Flip-flop. 

1 . SR FLIP-FLOP VHDL Code : 

A SR flip flop used in digital electronics will provide the results in a similar 
manner to the JK flip flop and this is the reason why the vhdl codes for 
these two flipflops are similar in nature. 

Given below is a behavioral approach of writing the code for a SR Flip-flop. 





QUI 

| 


CLOCK 








SR 


s 

R 


FLIP-FLOP 




PRESET 



(mm 



library ieee; 

use ieee. std_logic_l 164. all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 
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entity SR-FF is 

PORT( S,R,CLOCK,CLR,PRESET: in stdjogic; 

Q, QBAR: out stdjogic); 

end SR-FF; 

Architecture behavioral of SR-FF is 
begin 

PI: PROCESS(CLOCK,CLR,PRESET) 

variable x: stdjogic; 

begin 

if(CLR=V) then 
x: = '0'; 

elsif(PRESET='0')then 
x:=T; 

elsif(CLOCK= 7 ' and CLOCK'EVENT) then 

if(S='0' and R='0')then 
x: =x; 

elsif( S= 7 ' and R='l ')then 
x: = 'Z'; 

elsif( S= V and R= 7 ')then 
x: = '0'; 

else 
x:=T; 

end if; 
end if; 

Q<=x; 

QBAR<=not x; 
end PROCESS; 
end behavioral; 

2. D FLIP-FLOP VHDL Code : 

A D flip flop or Delay flip flop gives the same output as the input provided 
and thus the vhdl code is much simpler. 
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Given below is a behavioral approach of writing the vhdl code for a D Flip- 
flop. 

RST 


D 

CLK 


D 

FLIP-FLOP 

> 


Q 


library ieee; 

use ieee. std_logic_l 164. all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 






entity D-FF is 

PORT( D,CLK,RST: in stdjogic; 

Q: out stdjogic); 

end D-FF; 




architecture behavioral of D-FF is 






begin 

PI: process(RST,CLK) 






begin 






if(RST=T)then 
Q<='0'; 






elsif(CLK= 7 ' and CLK'EVENT) then 
Q<=D; 

end if; end process; 
end behavioral- 
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3. JK FLIP-FLOP VHDL Code : 

Given below is a behavioral approach of writing the code for a JK Flip-flop. 




library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity JK-FF is 

PORT( J,K,CLK,PRST,CLR: in stdjogic; 

Q, QB: out stdjogic); 

end JK-FF; 

Architecture behavioral of JK-FF is 
begin 

PI: PROCESS(CLK,CLR,PRST) 

variable x: stdjogic; 

begin 

if(CLR='0') then 
x:='0'; 

elsif(PRST='0')then 
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x:=T; 

elsif(CLK=T and CLK'EVENT) then 
if(J='0' and K='0')then 
x:=x; 

elsif(J=Tand K=T)then 
x:= not x; 

elsif(J='0' and K=T)then 

x:='0'; 
else 

x:=T; 

end if; 
end if; 

Q<=x; 

QB<=not x; 
end PROCESS; 
end behavioral; 



4. T FLIP-FLOP VHDL Code : 

The T in a t flip flop stands for toggle and this is exactly what this digital 
component does. It simply toggles the value of a particular input. A basic 
not gate will solve the problem in the vhdl code for this element. 

Given below is a behavioral approach of writing the code for a T Flip-flop. 
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library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity T-FF is 

PORT( T,CLK,PRST,RST: in stdjogic; 

Q: out stdjogic); 

end T-FF; 

architecture behavioral of T-FF is 
begin 

PI: process(CLK,PRST,RST) 
variable x: stdjogic; 
begin 

if(RST=*0') then 
x:='0'; 

elsif(RST=T and PRST='0') then 
x:=T; 

elsif(CLK=T and CLK'EVENT) then 

if(T=T)then 

x:= not x; 

end if; 
end if; 

Q<=x; 

end process; 
end behavioral; 
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Regular D latch(register) 



library ieee; 

use ieee . std_logic_ll 64 . all; 



entity dlatch_reset is 
port ( 

data : in std_logic; -- Data input 

en :in std_logic; -- Enable input 

reset : in std_logic; -- Reset input 

q rout std_logic -- Q output 



end entity; 

architecture rtl of dlatch_reset is 
begin 

process (en, reset, data) begin 
if (reset = '0') then 

q <= ' 0 ' ; 
elsif (en = ' 1 ' ) then 

q <= data; 

else 
null; 

end if; 
end process; 



end architecture; 



8-bit Parallel to Serial converter 

-- Description 

-- Implements a simple 8-bit parallel to serial converter in VHDL. 
library ieee; 

use ieee . std_logic_1164 . all ; 
entity PAR2SER is 

port (DIN : in std_logic_vector (7 downto 0) ; -- input register 
MODE : in std_logic_vector (1 downto 0) ; -- mode selection 
CLK, RESET : in std_logic; — clock and reset 
SDOUT : out std_logic) ; -- output data 
end PAR2SER; 

-- purpose: Implement main architecture of PAR2SER 
architecture BEHAVIOR of PAR2SER is 

signal IDATA : std_logic_vector ( 7 downto 0); -- internal data 
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begin -- BEHAVIOR 

-- purpose: Main process 
process (CLK, RESET) 
begin -- process 

-- activities triggered by asynchronous reset (active high) 

if RESET = ' 1' then 

SDOUT <= ' 0' ; 

I DATA <= "0 0000 000"; 

-- activities triggered by rising edge of clock 
elsif CLK' event and CLK = ' 1' then 

case MODE is 

when "00" => -- no operation 
null; 

when "01" => -- load operation 
IDATA <= DIN; 

when "10" => -- shift left 
SDOUT <= IDATA (7) ; 
for mloop in 6 downto 0 loop 
IDATA (mloop+1) <= IDATA (mloop) ; 
end loop; -- mloop 

when others => -- no operation otherwise 

null; 

end case; 

end if; 

end process; 

end BEHAVIOR; 



BCD to 7-Seg Decoder 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE. std_logic_unsigned. all; 
entity DISPLAY_DECODER is 

port ( VALUE : in bit_vector(3 downto 0); -- Bit 3 is MSB 
ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); -- 7 bit signal 
ZERO_BLANK_OUT : out bit); 
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end DISPLAY_DECODER; 

architecture BEHAVIOUR of DISPLAY_DECODER is 
begin 

process (VALUE, ZERO_BLANK) ~ sensitivity list 
begin 

case VALUE is -- case-when statement described how decode is 

-- driven based on the value of the input. 

when "0000" => if ZERO_BLANK=T then 

DISPLAY <= "0000000"; 

ZERO_BLANK_OUT <= '1'; 

else 

DISPLAY <= "1111110"; 
end if; 

when "0001" => DISPLAY <= "0110000"; 
when "0010" => DISPLAY <= "1101101"; 
when "0011" => DISPLAY <= "1111001"; 
when "0100" => DISPLAY <= "0110011"; 
when "0101" => DISPLAY <= "1011011"; 
when "0110" => DISPLAY <= "1011111"; 
when "0111" => DISPLAY <= "1110000"; 
when "1000" => DISPLAY <= "1111111"; 

when OTHERS => DISPLAY <= "1001111"; -- when others, an error is specified 
end case; 
end process; 
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end BEHAVIOUR; 

Test bench 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE. std_logic_unsigned. all; 
entity DISPLAY_DECODER_TB is 
end DISPLAY_DECODER_TB; 

architecture ARC_DISPLAY_DECODER_TB of DISPLAY_DECODER_TB is 

signal VALUE : bit_vector(3 downto 0); 

signal ZERO_BLANK : bit; 

signal DISPLAY : bit_vector(6 downto 0); 

signal ZERO_BLANK_OUT : bit; 

component DISPLAY_DECODER 

port ( VALUE : in bit_vector(3 downto 0); 

ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); 

ZERO_BLANK_OUT : out bit); 

end component; 

begin 

INPUT_VALUES: process 
begin 

ZERO_BLANK<=T; 
VALUE <= "0000"; 
wait for 5 ns; 
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ZERO_BLANK <= '0'; 
VALUE <= "0000"; 
wait for 7 ns; 
ZERO_BLANK<=T; 
VALUE <= "0010"; 
wait for 12 ns; 
ZERO_BLANK <= '0'; 
VALUE <= "0100"; 
wait for 12 ns; 
ZERO_BLANK<='0'; 
VALUE <= "0110"; 
wait for 7 ns; 

end process INPUT_VALUES; 
Ul: DISPLAY_DECODER 

port map(VALUE, ZERO_BLANK, DISPLAY, ZERO_BLANK_OUT); 
end ARC_DISPLAY_DECODER_TB; 

configuration CFG_DISPLAY_DECODER of DISPLAY_DECODER_TB is 

for ARC_DISPLAY_DECODER_TB 

for Ul:DISPLAY_DECODER use entity 

work.DISPLAY_DECODER(BEHAVIOUR); 

end for; 

end for; 

end CFG_DISPLAY_DECODER; 
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